sink("run.log", split = TRUE)
cat("Starting replication at: ", as.character(Sys.time()), "\n\n")

# Run record linkage scripts
from_file <- TRUE
if(!from_file){
  source('code/001_link-candidates.R')
  source('code/002_link-cities.R')
  source('code/003_link-organizations.R')
  source('code/004_link-parties.R')
}

# Run analysis scripts
source('code/005_table1.R')
source('code/006_candidates.R')
source('code/007_cities.R')
source('code/008_organizations.R')
source('code/009_parties.R')
source('code/010_appendix.R')

cat("\nReplication completed at: ", as.character(Sys.time()), "\n")
sink()
